home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 7 / Amiga Format AFCD07 (Dec 1996, Issue 91).iso / serious / shareware / 3d / raystorm-complete / examples / exa.lha / arexx / textures.ray < prev    next >
Text File  |  1996-09-12  |  2KB  |  88 lines
  1. /***************
  2.  * NAME:        Textures.ray
  3.  * DESCRIPTION: Demonstration of the textures
  4.  * AUTHOR:      Andreas Heumann & Mike Hesser
  5.  ***************/
  6.  
  7. signal on error
  8.  
  9. options results
  10.  
  11. IF ~show('P','RAYSTORM') THEN DO
  12.         address COMMAND 'run >NIL: <NIL: /RayStorm'
  13.         address COMMAND WaitForPort RAYSTORM
  14. END
  15.  
  16. address RAYSTORM
  17.  
  18. 'TEXTUREPATH /textures'
  19. 'OBJECTPATH /objects'
  20.  
  21. 'SETSCREEN 160 128'
  22. 'SETCAMERA <-10,20,20> <-3,0,3> <0,1,0> 25 20'
  23. 'SETWORLD [20,20,50]'
  24. 'POINTLIGHT <-20,20,20>'
  25.  
  26. /* texture definitions */
  27.  
  28. 'NEWSURFACE BUMP'
  29. 'DIFFUSE [30,30,255]'
  30. 'SPECULAR [0,0,0]'
  31. 'IMTEXTURE bump.itx <0,0,0> <0,0,0> <.3,.3,.3> 1 1 1'
  32.  
  33. 'NEWSURFACE CHECKER'
  34. 'SPECULAR [0,0,0]'
  35. 'IMTEXTURE checker.itx <-0.1,0.1,0.1> <0,0,0> <.5,.5,.5>'
  36.  
  37. 'NEWSURFACE LINEAR'
  38. 'DIFFUSE [255,255,0]'
  39. 'SPECULAR [0,0,0]'
  40. 'IMTEXTURE linear.itx <0,-.8,0> <0,0,0> <1,2,1> 255 0 0'
  41.  
  42. 'NEWSURFACE MARBLE'
  43. 'SPECULAR [0,0,0]'
  44. 'IMTEXTURE marble.itx <0,0,0> <0,0,0> <1,1,1> 150 50 50 0 0 0 0 0 0 7'
  45.  
  46. 'NEWSURFACE RADIAL'
  47. 'DIFFUSE [255,25,255]'
  48. 'SPECULAR [0,0,0]'
  49. 'IMTEXTURE radial.itx <-3,0,3> <0,0,0> <1,1,1> 1 2 0 0 255'
  50.  
  51. 'NEWSURFACE STARS'
  52. 'DIFFUSE [0,0,0]'
  53. 'SPECULAR [0,0,0]'
  54. 'IMTEXTURE stars.itx <0,0,0> <0,0,0> <1,1,1> 255 255 255 1'
  55.  
  56. 'NEWSURFACE WOOD'
  57. 'DIFFUSE [200,100,0]'
  58. 'SPECULAR [0,0,0]'
  59. 'IMTEXTURE wood.itx <0,0,0> <0,0,0> <0.7,0.7,0.7> 255 180 50 0 0 0 0 0 0 1 1'
  60.  
  61. /* objects */
  62.  
  63. 'LOADOBJ cube.iob <0,0,0> SURFACE=MARBLE'
  64.  
  65. 'SPHERE BUMP <-3,1,0.5> 1.3'
  66.  
  67. 'LOADOBJ cube.iob <-6,0,0> SURFACE=CHECKER'
  68.  
  69. 'LOADOBJ cube.iob <0,0,3> SURFACE=LINEAR'
  70.  
  71. 'LOADOBJ cube.iob <-3,0,3> SURFACE=RADIAL'
  72.  
  73. 'LOADOBJ cube.iob <-6,0,3> SURFACE=STARS'
  74.  
  75. 'LOADOBJ cube.iob <0,0,6> SURFACE=WOOD'
  76.  
  77. 'STARTRENDER QUICK'
  78. 'SAVEPIC textures.iff'
  79. 'CLEANUP'
  80.  
  81. exit 0
  82.  
  83. error:
  84. say "Error" rc "in line" sigl ":"
  85. GETERRORSTR rc
  86. say result
  87. exit 0
  88.